home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
docume1a
/
frmprevi
< prev
next >
Wrap
Text File
|
1999-08-07
|
4KB
|
119 lines
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmPreview
Caption = " Print Preview"
ClientHeight = 3195
ClientLeft = 165
ClientTop = 735
ClientWidth = 4680
ClipControls = 0 'False
ControlBox = 0 'False
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin MSComDlg.CommonDialog CommonDialog1
Left = 2160
Top = 1320
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin RichTextLib.RichTextBox RichTextBox1
Height = 7500
Left = 0
TabIndex = 3
Top = 480
Width = 12000
_ExtentX = 21167
_ExtentY = 13229
_Version = 393217
Enabled = -1 'True
ScrollBars = 2
DisableNoScroll = -1 'True
TextRTF = $"frmPreview1.frx":0000
End
Begin VB.CommandButton Command3
Height = 495
Left = 6120
Picture = "frmPreview1.frx":00AE
Style = 1 'Graphical
TabIndex = 2
ToolTipText = "Closes Preview"
Top = 0
Width = 975
End
Begin VB.CommandButton Command2
Height = 495
Left = 5160
Picture = "frmPreview1.frx":01F8
Style = 1 'Graphical
TabIndex = 1
ToolTipText = "Prints Document"
Top = 0
Width = 975
End
Begin VB.CommandButton Command1
Height = 495
Left = 4200
Picture = "frmPreview1.frx":0862
Style = 1 'Graphical
TabIndex = 0
ToolTipText = "Preview"
Top = 0
Width = 975
End
Begin VB.Menu mnuFile
Caption = "&File"
Begin VB.Menu mnuPreview
Caption = "&Print Preview"
End
Begin VB.Menu mnuPrint
Caption = "&Print"
Shortcut = ^P
End
Begin VB.Menu mnu1
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "&Exit"
End
End
End
Attribute VB_Name = "frmPreview"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If boolnew = True Then
RichTextBox1.Text = frmOpenDoc.RichTextBox1.Text
Else
RichTextBox1.LoadFile MDIForm1.CommonDialog1.filename
End If
End Sub
Private Sub Command2_Click()
Call PrintDoc
End Sub
Private Sub Command3_Click()
Unload Me
frmOpenDoc.SetFocus
End Sub
Private Sub mnuExit_Click()
Unload Me
frmOpenDoc.SetFocus
End Sub
Private Sub mnuPreview_Click()
If boolnew = True Then
RichTextBox1.Text = frmOpenDoc.RichTextBox1.Text
Else
RichTextBox1.LoadFile MDIForm1.CommonDialog1.filename
End If
End Sub
Private Sub mnuPrint_Click()
Call PrintDoc
End Sub